5 GOSUB 6000
6 FORX=828TO1023:POKEX,.:NEXT
7 :
8 REM THE FOLOWING LINES ARE ORIGINAL
9 :
10 POKE646,15:PRINT"[147] SCORE: 0    64 SEA BATTLE[146]":POKE915,16:Q=1774:REM SNADER
15 FORP=0TO9:READL,M:A(P)=L:B(P)=M:NEXT:FORT=0TO26:READL:POKE832+T,L:NEXT
20 V=53248:S=54296:POKEV+39,0:POKEV+40,1:POKE2040,13:POKE2041,14:POKEV+33,14
25 FORT=0TO9:C=RND(TI)*(100)+65:B=C:K=0
30 Q=Q-2:FORP=0TO9:POKEQ+A(P),B(P):NEXT:G=0:D=C/26:POKEV+21,3:POKEV+1,C
35 FORX=0TO255STEPD:POKES,15:POKES,0:POKEV,X:POKEV+2,X:GETK$:IFK$<>""THENK=1
40 G=G+(.2*K):B=B+G:POKEV+3,B:POKEV+32,7:IFB>212THENPOKEV+21,1:K=0:G=0
45 IFPEEK(V+31)<>0THENH=H+1:PRINT" SCORE:";H:POKEV+32,2:POKEV+21,1:K=0:G=0
50 NEXT:IFH>9THENPRINT"[147] SHIP DESTROYED":FORT=0TO60:POKEV+33,T:NEXT:END
55 NEXT:PRINT" TRY AGAIN!":FORT=0TO24:FORP=0TO9:POKEQ+A(P),B(P):NEXT:Q=Q-2:NEXT
60 DATA0,103,1,32,2,32,38,95,39,247,40,160,41,98,42,98,43,32,44,32,224,127,192
65 DATA240,8,128,248,5,4,63,255,228,7,255,252,0,127,228,0,3,132,0,0,128,0,1,192
70 :
75 :
80 REM THE FOLLOWING LINES ARE ADDED BY        LOADSTAR
90 :
91 POKE53269,.
92 :
100 POKE214,10:PRINT:PRINT"GAME OVER : DO YOU WANT TO PLAY AGAIN?"
101 GETA$:IFA$="Y"ORA$="[217]"THEN RUN10
105 IFA$="N"ORA$="[206]"THEN 200
110 GOTO101
200 OPEN15,8,15,"R0:ONE-SCREEN WINNERS=ONE-SCREEN WINNERS":INPUT#15,ER:CLOSE15
201 IF ER<>63 THEN PRINT"[147]":END
210 LOAD"ONE-SCREEN WINNERS",8
6000 POKE53280, 0:POKE53281, 0:PRINT"[147]";
6001 PRINT"[155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
6002 PRINT"[152]    [204][207][193][196][211][212][193][210] [208][210][197][211][197][206][212][211]     "
6003 PRINT"[151][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
6004 PRINT"[172]                    [146][187]"
6005 PRINT"                      "
6006 PRINT"                      "
6007 PRINT"[163][163][163][163][163][163][163][163][163][160] s e a  b a t t l e  [146][163][163][163][163][163][163][163][163][163][160]               ";
6008 PRINT"     [160]"
6009 PRINT"[163][163][163][163][163][163][163][163][163]         bY           [146][163][163][163][163][163][163][163][163][163]                ";
6010 PRINT"     [160]"
6011 PRINT"[163][163][163][163][163][163][163][163][163]  bOB & dAVID sNADER [160][146][163][163][163][163][163][163][163][163][163]                ";
6012 PRINT"      "
6013 PRINT"[188]                    [146][190]"
6014 PRINT"[155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
6015 PRINT"[152] press space[160]to[160]continue  "
6016 PRINT"[151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
6020 GETA$:IFA$<>" "THEN6020
6030 PRINT"[147]"CHR$(142):RETURN